unit uFornecedor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uBaseFormDB, DB, Menus, ImgList, StdActns, DBActns, ActnList,
  StdCtrls, ExtCtrls, ComCtrls, Buttons, ToolWin, FMTBcd, SqlExpr, Provider,
  DBClient, Grids, DBGrids, Mask, SimpleDS;

type
  TfFornecedor = class(TfBaseFormDB)
    DBGrid1: TDBGrid;
    scdsSearchBasePESSOA_CODIGO: TFMTBCDField;
    scdsSearchBaseFORNECEDOR_CODIGO: TFMTBCDField;
    scdsSearchBasePES_NOME_REDUZIDO: TStringField;
    scdsSearchBasePES_DOCUMENTO_NATUREZA: TStringField;
    SimpleDataSet1: TSimpleDataSet;
    FMTBCDField1: TFMTBCDField;
    FMTBCDField2: TFMTBCDField;
    StringField1: TStringField;
    StringField2: TStringField;
    DataSource1: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fFornecedor: TfFornecedor;

implementation

uses UDMDatabase;

{$R *.dfm}

end.
